home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / hc / sndsaple.sit / Sounds a'Plenty / card_3089.txt < prev    next >
Text File  |  1988-11-25  |  4KB  |  180 lines
  1. -- card: 3089 from stack: in
  2. -- bmap block id: 2236
  3. -- flags: 0000
  4. -- background id: 2646
  5. -- name: Sounds
  6. ----- HyperTalk script -----
  7. on openCard
  8.   hide menubar
  9. end openCard
  10.  
  11.  
  12. -- part 1 (button)
  13. -- low flags: 00
  14. -- high flags: 0000
  15. -- rect: left=27 top=38 right=156 bottom=274
  16. -- title width / last selected line: 0
  17. -- icon id / first selected line: 0 / 0
  18. -- text alignment: 1
  19. -- font id: 0
  20. -- text size: 12
  21. -- style flags: 0
  22. -- line height: 16
  23. -- part name: Home
  24. ----- HyperTalk script -----
  25. on mouseUp
  26.   visual dissolve slowly
  27.   go home
  28. end mouseUp
  29.  
  30.  
  31.  
  32. -- part 2 (field)
  33. -- low flags: 01
  34. -- high flags: 0007
  35. -- rect: left=309 top=66 right=284 bottom=458
  36. -- title width / last selected line: 0
  37. -- icon id / first selected line: 0 / 0
  38. -- text alignment: 0
  39. -- font id: 2
  40. -- text size: 14
  41. -- style flags: 0
  42. -- line height: 18
  43. -- part name: List
  44. ----- HyperTalk script -----
  45. on mouseUp
  46.   global level
  47.   put the optionkey into keystate
  48.   if the selection is empty then
  49.     set lockText of the target to false -- unlock to enable text editing
  50.     repeat two times
  51.       click at the clickLoc -- double click where the user clicked
  52.     end repeat
  53.     put the selection into holder
  54.   end if
  55.   play holder
  56.   click at 0,0 --disable selection
  57.   set lockText of the target to true
  58. end mouseUp
  59.  
  60.  
  61.  
  62. -- part 5 (button)
  63. -- low flags: 00
  64. -- high flags: A002
  65. -- rect: left=309 top=291 right=307 bottom=356
  66. -- title width / last selected line: 0
  67. -- icon id / first selected line: 0 / 0
  68. -- text alignment: 1
  69. -- font id: 0
  70. -- text size: 12
  71. -- style flags: 0
  72. -- line height: 16
  73. -- part name: Sort
  74. ----- HyperTalk script -----
  75. on mouseUp
  76.   set lockscreen to true
  77.   put "Sorting--Please be patient--" into message box
  78.   put number of lines in card field list into numlines
  79.   put 1 into liney
  80.   repeat until liney >= numlines
  81.     put line liney of card field list into b
  82.     put liney + 1 into linex
  83.     repeat until linex > numlines
  84.       put line linex of card field list into a
  85.       if a < b then
  86.         put b into line linex of card field list
  87.         put a into line liney of card field list
  88.         put a into b
  89.       end if
  90.       put (linex + 1) into linex
  91.     end repeat
  92.     put (liney + 1) into liney
  93.   end repeat
  94.   set lockscreen to false
  95.   put "" into message box
  96.   hide message box
  97. end mouseUp
  98.  
  99.  
  100.  
  101.  
  102. -- part 6 (button)
  103. -- low flags: 00
  104. -- high flags: A002
  105. -- rect: left=355 top=291 right=307 bottom=403
  106. -- title width / last selected line: 0
  107. -- icon id / first selected line: 0 / 0
  108. -- text alignment: 1
  109. -- font id: 0
  110. -- text size: 12
  111. -- style flags: 0
  112. -- line height: 16
  113. -- part name: PlayAll
  114. ----- HyperTalk script -----
  115. on mouseUp
  116.   put number of lines in card field 1 into lineNum
  117.   put 1 into zz
  118.   repeat until zz>lineNum
  119.     get line zz in card field 1
  120.     play it
  121.     put zz + 1 into zz
  122.   end repeat
  123. end mouseUp
  124.  
  125.  
  126.  
  127. -- part 7 (button)
  128. -- low flags: 00
  129. -- high flags: 8002
  130. -- rect: left=402 top=291 right=307 bottom=457
  131. -- title width / last selected line: 0
  132. -- icon id / first selected line: 0 / 0
  133. -- text alignment: 1
  134. -- font id: 0
  135. -- text size: 12
  136. -- style flags: 0
  137. -- line height: 16
  138. -- part name: Help
  139. ----- HyperTalk script -----
  140. on mouseUp
  141.   go to next card
  142. end mouseUp
  143.  
  144.  
  145.  
  146. -- part 8 (button)
  147. -- low flags: 00
  148. -- high flags: 8002
  149. -- rect: left=309 top=312 right=329 bottom=457
  150. -- title width / last selected line: 0
  151. -- icon id / first selected line: 0 / 0
  152. -- text alignment: 1
  153. -- font id: 0
  154. -- text size: 12
  155. -- style flags: 0
  156. -- line height: 16
  157. -- part name: AddName
  158. ----- HyperTalk script -----
  159. on mouseUp
  160.   ask "What name?"
  161.   put it into line (number of lines in card field list) + 1 of card field "list"
  162. end mouseUp
  163.  
  164.  
  165.  
  166. -- part contents for card part 2
  167. ----- text -----
  168. Boing
  169. BrokenGlass
  170. Buzzer
  171. Cow
  172. Cricket
  173. DoorClose
  174. DoorOpen
  175. GateClosing
  176. GunShot
  177. Harpsichord
  178. Knock
  179. Owl
  180. Rifle